clean__main<-function(years_bac,years_adm){
  setwd(wd_code)
  eval(parse('clean__adm__main2.R', encoding = 'UTF-8'))
  clean__adm__main2(years_adm)
  setwd(wd_code)
  eval(parse('clean__bac__main2.R', encoding = 'UTF-8'))
  clean__bac__main2(years_bac)
}